home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_26_1988_Transactor_Publishing.d64 / video reset (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  832b  |  30 lines
  1. 100 rem video reset - relocatable
  2. 110 ml=50000: rem start address
  3. 120 :
  4. 130 x=ml: x1=x+21: x2=x+95
  5. 140 h1=int(x1/256): l1=x1-256*h1
  6. 150 h2=int(x2/256): l2=x2-256*h2
  7. 160 h3=int(x/256):  l3=x-256*h3
  8. 170 gosub 230
  9. 180 print"tap restore to reset video"
  10. 190 poke ml+1,l1 : poke ml+3,h1
  11. 200 poke ml+11,l2: poke ml+13,h2
  12. 210 poke ml+99,l3: poke ml+100,h3
  13. 220 sys ml: end
  14. 230 read a: if a=-1 then return
  15. 240 poke x,a: x=x+1: goto 230
  16. 250 data 169,128,162,192,141,24,3,142
  17. 260 data 25,3,169,202,162,192,141,0
  18. 270 data 3,142,1,3,96,72,152,72
  19. 280 data 169,6,141,32,208,141,33,208
  20. 290 data 169,14,141,134,2,169,23,141
  21. 300 data 24,208,169,200,141,22,208,169
  22. 310 data 27,141,17,208,169,199,141,0
  23. 320 data 221,160,0,173,134,2,153,0
  24. 330 data 216,153,0,217,153,0,218,153
  25. 340 data 0,219,200,208,241,140,21,208
  26. 350 data 152,153,0,212,200,192,25,208
  27. 360 data 248,104,168,104,76,71,254,72
  28. 370 data 138,72,32,0,192,104,170,104
  29. 380 data 76,139,227,-1
  30.